home *** CD-ROM | disk | FTP | other *** search
/ Super PC 19 / Super PC 19 (Curso OS-2 y shareware).iso / cursoos2.cmd next >
Encoding:
Text File  |  1994-10-11  |  1009 b   |  50 lines
  1. /* Arranca el curso de OS/2 IBM */
  2.  
  3.  
  4. rc = setlocal()
  5. audio = "N"
  6. say "¿Tiene usted tarjeta de audio (S/N)?"
  7.  
  8. pull audio
  9.  
  10. if audio = "S" then
  11. do
  12.    curdir = ""
  13.    newdir = directory(curdir||"\CURSOOS2");
  14.    if newdir = '' then
  15.      do
  16.        say "Deberíamos encontrar el directorio CURSOOS2"
  17.        exit
  18.      end
  19.  
  20.  
  21.    umpath = value("UMPATH",,"OS2ENVIRONMENT")
  22.    umpath = curdir"\CURSOOS2;"curdir"\CURSOOS2;"curdir"\CURSOOS2;"umpath
  23.    rc = value("UMPATH",umpath,"OS2ENVIRONMENT")
  24.  
  25.    "TELLPM CURSOOS2 C:\CURSOOS2"
  26.  
  27.    rc = endlocal()
  28. end
  29.  
  30. if audio = "N" then
  31. do
  32.    curdir = ""
  33.    newdir = directory(curdir||"\CURSOOSD");
  34.    if newdir = '' then
  35.      do
  36.        say "Deberíamos encontrar el directorio CURSOOSD"
  37.        exit
  38.      end
  39.  
  40.  
  41.    umpath = value("UMPATH",,"OS2ENVIRONMENT")
  42.    umpath = curdir"\CURSOOSD;"curdir"\CURSOOSD;"curdir"\CURSOOSD;"umpath
  43.    rc = value("UMPATH",umpath,"OS2ENVIRONMENT")
  44.  
  45.    "TELLPM CURSOOS2 C:\CURSOOS2"
  46.  
  47.    rc = endlocal()
  48. end
  49.  
  50.